home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / evaltrac.lha / papers / oldtr / p.tex / images.pl (.txt) < prev    next >
LaTeX Document  |  1989-11-29  |  4KB  |  129 lines
  1. # LaTeX2HTML 2022 (Released January 1, 2022)
  2. # Associate images original text with physical files.
  3. $key = q//;
  4. $cached_env_img{$key} = q|<IMG
  5.   STYLE="" SRC="|."$dir".q|img25.png"
  6.  ALT="\begin{evaltrace}
  7. +–> ;(zero-center '(3 11 13))
  8. \vert
  9. +**> ;Apply ZERO-CENTE...
  10. ...t of MAPCAR is (-6 2 4)
  11. +_*> ;Result of ZERO-CENTER is (-6 2 4)
  12. \end{evaltrace}">|; 
  13. $key = q/{code}(+23){et-->}5{code};LFS=11;AAT/;
  14. $cached_env_img{$key} = q|<IMG
  15.   STYLE="" SRC="|."$dir".q|img3.png"
  16.  ALT="\begin{code}
  17. (+ 2 3) {\et –>} 5
  18. \end{code}">|; 
  19. $key = q/{code}(defmacrosimple-incf(var)(printa)(list'setqvar(list'+var1)))strut(setfa'foo)strut(defuntest(a)(simple-incfa)){code};LFS=11;AAT/;
  20. $cached_env_img{$key} = q|<IMG
  21.   STYLE="" SRC="|."$dir".q|img26.png"
  22.  ALT="\begin{code}
  23. (defmacro simple-incf (var)
  24. (print a)
  25. (list 'setq var (list '+ var 1)))
  26. \strut
  27. (setf a 'foo)
  28. \strut
  29. (defun test (a)
  30. (simple-incf a))
  31. \end{code}">|; 
  32. $key = q/{code}(defunaverage(xy)(let((sum(+xy)))(listxy'average(slashsum2)))){code};LFS=11;AAT/;
  33. $cached_env_img{$key} = q|<IMG
  34.   STYLE="" SRC="|."$dir".q|img10.png"
  35.  ALT="\begin{code}
  36. (defun average (x y)
  37. (let ((sum (+ x y)))
  38. (list x y 'average (/ sum 2))))
  39. \end{code}">|; 
  40. $key = q/{code}(defundouble(n)(*n2)){code};LFS=11;AAT/;
  41. $cached_env_img{$key} = q|<IMG
  42.   STYLE="" SRC="|."$dir".q|img4.png"
  43.  ALT="\begin{code}
  44. (defun double (n)
  45. (* n 2))
  46. \end{code}">|; 
  47. $key = q/{code}(defungcd(xy)(if(=xy)x(let((x(if(<xy)xy))(y(if(<xy)yx)))(gcdx(-yx))))){code};LFS=11;AAT/;
  48. $cached_env_img{$key} = q|<IMG
  49.   STYLE="" SRC="|."$dir".q|img15.png"
  50.  ALT="\begin{code}
  51. (defun gcd (x y)
  52. (if (= x y)
  53. (let ((x (if (< x y) x y))
  54. (y (if (< x y) y x)))
  55. (gcd x (- y x)))))
  56. \end{code}">|; 
  57. $key = q/{code}(defunquintuple(n)(+(double(doublen))n)){code};LFS=11;AAT/;
  58. $cached_env_img{$key} = q|<IMG
  59.   STYLE="" SRC="|."$dir".q|img6.png"
  60.  ALT="\begin{code}
  61. (defun quintuple (n)
  62. (+ (double (double n)) n))
  63. \end{code}">|; 
  64. $key = q/{code}(defunshifter(konst)#'(lambda(x)(-xkonst))){code};LFS=11;AAT/;
  65. $cached_env_img{$key} = q|<IMG
  66.   STYLE="" SRC="|."$dir".q|img23.png"
  67.  ALT="\begin{code}
  68. (defun shifter (konst)
  69. \char93 '(lambda (x) (- x konst)))
  70. \end{code}">|; 
  71. $key = q/{code}(defunzero-center(data)(mapcar(shifter(averagedata))data)){code};LFS=11;AAT/;
  72. $cached_env_img{$key} = q|<IMG
  73.   STYLE="" SRC="|."$dir".q|img24.png"
  74.  ALT="\begin{code}
  75. (defun zero-center (data)
  76. (mapcar (shifter (average data)) data))
  77. \end{code}">|; 
  78. $key = q/{code}(defvar*n*1000)strut(defunparent(*n*)(child(+*n*2)))strut(defunchild(p)(list*n*p)){code};LFS=11;AAT/;
  79. $cached_env_img{$key} = q|<IMG
  80.   STYLE="" SRC="|."$dir".q|img28.png"
  81.  ALT="\begin{code}
  82. (defvar *n* 1000)
  83. \strut
  84. (defun parent (*n*)
  85. (child (+ *n* 2)))
  86. \strut
  87. (defun child (p)
  88. (list *n* p))
  89. \end{code}">|; 
  90. $key = q/{code}(setfcrude-pi3.14)strut(defuncircumference(r)(*2rcrude-pi)){code};LFS=11;AAT/;
  91. $cached_env_img{$key} = q|<IMG
  92.   STYLE="" SRC="|."$dir".q|img8.png"
  93.  ALT="\begin{code}
  94. (setf crude-pi 3.14)
  95. \strut
  96. (defun circumference (r)
  97. (* 2 r crude-pi))
  98. \end{code}">|; 
  99. $key = q/{code}(setfn1000)strut(defunparent(n)(child(+n2)))strut(defunchild(p)(listnp)){code};LFS=11;AAT/;
  100. $cached_env_img{$key} = q|<IMG
  101.   STYLE="" SRC="|."$dir".q|img12.png"
  102.  ALT="\begin{code}
  103. (setf n 1000)
  104. \strut
  105. (defun parent (n)
  106. (child (+ n 2)))
  107. \strut
  108. (defun child (p)
  109. (list n p))
  110. \end{code}">|; 
  111. $key = q/{evaltrace}+-->;(++23)|+_->;5{evaltrace};LFS=11;AAT/;
  112. $cached_env_img{$key} = q|<IMG
  113.   STYLE="" SRC="|."$dir".q|img2.png"
  114.  ALT="\begin{evaltrace}
  115. +–> ;(++ 2 3)
  116. \vert
  117. +_-> ;5
  118. \end{evaltrace}">|; 
  119. $key = q/{evaltrace};theglobalvariableNhasvalue1000strut+-->;(parent3)|+<comment_mark>20+_{evaltrace};LFS=11;AAT/;
  120. $cached_env_img{$key} = q|<IMG
  121.   STYLE="" SRC="|."$dir".q|img14.png"
  122.  ALT="\begin{evaltrace}
  123. ;the global variable N has value 1000
  124. \strut
  125. +–> ;(parent 3)
  126. \vert
  127. +%%> ;Apply PARENT to 3
  128. +_\end{evaltrace}">|; 
  129.